GetOS Function

public function GetOS() result(os)

get operating system

Arguments

None

Return Value integer

Source Code

FUNCTION GetOS &
!
( ) &
!
RESULT (os)

IMPLICIT NONE

! Local declarations:  
INTEGER  :: os
!------------end of declaration------------------------------------------------

#ifdef _WIN32 !detected Windows OS
    os = WIN32
#else !detected unix like OS, including linux
    os = UNIX
#endif

RETURN
END FUNCTION GetOS